NBC Slam Jams!/NBC Slam Jams!.iso/xtras/media_la/effector.cst/00048_Script_Drag Around

Text File | 1997-09-30 | 1KB | 46 lines

--Drag Around





Property partner,partnerExists

on getPropertyDescriptionList
  set pList=[:]
  addProp pList,#partner,[format:#integer,¼
                             comment:"Also Drag Sprite#:",¼
                             Default:0]

  return pList
end

on beginSprite me
  set partnerExists=((partner >0) and (partner<121))
end

on mouseDown me
  dragAround(me)
end

on dragAround me
  set s=the spriteNum of me
  set offH = the mouseH - the locH of sprite s
  set offV = the mouseV - the locV of sprite s
  if partnerExists then
    set offH2= the mouseH - the locH of sprite partner
    set offV2= the mouseV - the locV of sprite partner
  end if
  repeat while the mouseDown
    set mh=the mouseH
    set mv=the mouseV
    set the locH of sprite s=mh - offH
    set the locV of sprite s=mv - offV
    if partnerExists then
      set the locH of sprite partner = mh - offH2
      set the locV of sprite partner = mv - offV2
    end if
    updateStage
  end repeat
end